home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl… (Business) 1997 November / Software of the Month Club - Business Shareware (Volume 243) (November 1997).iso / dos / biz / Parse / QUICKREF.POM < prev    next >
Encoding:
Text File  |  1997-08-27  |  7.3 KB  |  125 lines
  1. ;   The following comment lines are for quick-reference.
  2. ;   You can copy them into your own POM files to make programming easier.
  3. ;
  4. ;   ----------------------------------  ---------------------------------------
  5. ;   COMMAND FORMATS                     EXAMPLE
  6. ;   ----------------------------------  ---------------------------------------
  7. ;   ACCEPT   val c val                  ACCEPT   $FLINE[1 3] = "YES"
  8. ;   AGAIN    [val c val]                AGAIN    linecntr #< "3"
  9. ;   APPEND   var val val [val [val]]    APPEND   name first last
  10. ;   BEGIN    [val c val]                BEGIN    linecntr #< "3"
  11. ;   CALL     val                        CALL     "Format Price Field"
  12. ;   CALC     var num operation num      CALC     total total "+" sold
  13. ;   CALCBITS var char operation char    CALCBITS z byte1 "XOR" $80
  14. ;   CALCREAL var num operation num      CALCREAL salary hours "*" rate
  15. ;   CHANGE   var val val                CHANGE   date "/" "-"
  16. ;   CHOP     from to [,from to] [...]   CHOP     1 250, 251 300
  17. ;   CODE     val                        CODE     "Format Price Field"
  18. ;   COPY     var val from [to]          COPY     x $FLINE "3" "5"
  19. ;   CVTCASE  var val [ctl]              CVTCASE  x $FLINE "L7"
  20. ;   DATE     var num num num [ctl]      DATE     x "98" "12" "31"
  21. ;   DELETE   var from [to]              DELETE   x "3" "5"
  22. ;   DONE     [val c val]                DONE     $FLINE = "End Data"
  23. ;   ELSE                                ELSE
  24. ;   END                                 END
  25. ;   EPILOGUE                            EPILOGUE
  26. ;   ERASE    file                       ERASE    "C:\MYFILES\OUTPUT.TXT"
  27. ;   EXTRACT  var var from [to]          EXTRACT  x $FLINE "15" "30"
  28. ;   FILESIZE var file                   FILESIZE x "C:\MYFILES\INPUT.TXT"
  29. ;   FINDPOSN var val left [right [ctl]] FINDPOSN x $FLINE "2*/"
  30. ;   GET      var ctl [ctl [ctl]]        GET      x #0 "END" "I"
  31. ;   GETENV   var val                    GETENV   x "COMSPEC"
  32. ;   GETTEXT  var ctl [ctl]              GETTEXT  date "WORD" "DATE"
  33. ;   HALT     val c val val [ctl]        HALT     x = y "Item repeated"
  34. ;   IF       val c val var val [val]    IF       x = "Y" THEN z = "N"
  35. ;   IGNORE   val c val                  IGNORE   price = "0.00"
  36. ;   INSERT   var ctl val                INSERT   price "L" "$"
  37. ;   KEEP     num                        KEEP     "5"
  38. ;   LOG      val c val val [val [val]]  LOG      x = y "Item repeated"
  39. ;   LOOKCOLS num num num num            LOOKCOLS "1" "3" "8" "255"
  40. ;   LOOKFILE file                       LOOKFILE "C:\TABLES\DATA.TBL"
  41. ;   LOOKSPEC ctl ctl ctl                LOOKSPEC "Y" "N" "N"
  42. ;   LOOKUP   var val                    LOOKUP   phonenum "FRED JONES"
  43. ;   MAKEDATA var val ctl                MAKEDATA x "255" "BYTE"
  44. ;   MAKETEXT var val ctl                MAKETEXT z x "BYTE"
  45. ;   MAPFILE  file val [ctl]             MAPFILE  "XYZ.MPF" "XYZ" "ANYCASE"
  46. ;   MINLEN   num [num]                  MINLEN   "15" "1"
  47. ;   MONTHNUM var val                    MONTHNUM x "February"
  48. ;   MSGWAIT  num                        MSGWAIT  "60"
  49. ;   NEXTFILE [val c val]                NEXTFILE $FLINE = "End File"
  50. ;   OFILE    file [val [ctl]]           OFILE    "C:\MYFILES\OUT.TXT"
  51. ;   OUT      [val c val] |pic           OUT      z = "X" |{price}
  52. ;   OUTEND   [val c val] |pic           OUTEND   z = "X" |{$FLINE}
  53. ;   OUTHDG   val                        OUTHDG   "LIST OF EMPLOYEES"
  54. ;   OUTPAGE  [val c val]                OUTPAGE  partnum <> oldpartnum
  55. ;   OVERLAY  var val from               OVERLAY  x "***" "15"
  56. ;   PAD      var ctl char num           PAD      sernum "L" "0" "10"
  57. ;   PAGELEN  num [ctl]                  PAGELEN  "66" "N"
  58. ;   PARSE    var val left right [ctl]   PARSE    x $FLINE "2*(" "3*)" "I"
  59. ;   PAUSE    num                        PAUSE    "1000"
  60. ;   PEEL     var var left right [ctl]   PEEL     x $FLINE "2*(" "3*)" "I"
  61. ;   PROLOGUE                            PROLOGUE
  62. ;   PROPER   var [ctl [file]]           PROPER   custname "I" "XY.PEF"
  63. ;   RANDOM   var val val                RANDOM   roll "1" "6"
  64. ;   READNEXT [val c val]                READNEXT $FLINE[1 5] = "NOTE:"
  65. ;   REMAP    var [val]                  REMAP    $FLINE "BIN2CODE"
  66. ;   REWIND   [num]                      REWIND   "15"
  67. ;   ROUNDING val                        ROUNDING "N"
  68. ;   SCANPOSN var var val val [ctl]      SCANPOSN from to $FLINE "/MR/MISS/MRS"
  69. ;   SET      var val [val [val]]        SET      price $FLINE[20 26] "L$" "0"
  70. ;   SETLEN   var val                    SETLEN   length custname
  71. ;   SHOWNOTE val [val] [val] [...]      SHOWNOTE "Processing record #" recnum
  72. ;   SOUND    ctl                        SOUND    "BUZZ"
  73. ;   SPLIT    from to [,from to] [...]   SPLIT    1 250, 251 300
  74. ;   TODAY    var [ctl]                  TODAY    x "?y/?n/?d"
  75. ;   TRACE    var                        TRACE    price
  76. ;   TRIM     var ctl char               TRIM     price "R" "$"
  77. ;   ZERODATE num num num                ZERODATE "1753" "12" "31"
  78. ;   ----------------------------------  ---------------------------------------
  79. ;
  80. ;   The following conventions are used in the preceding table:
  81. ;
  82. ;   c      Comparator (if omitted, defaults to "equals" comparison)
  83. ;   char   Variable or literal: must be a single byte or character
  84. ;   ctl    Variable or literal: command control specifications
  85. ;   file   File name (see "How Parse-O-Matic Searches for a File")
  86. ;   from   Variable or literal: a starting character position (see Note #1)
  87. ;   left   Variable or literal: a delimiter-search parameter
  88. ;   num    Variable or literal: must contain a number (see Note #1)
  89. ;   pic    Output picture used by OUT and OUTEND
  90. ;   right  Variable or literal: a delimiter-search parameter
  91. ;   to     Variable or literal: an ending position (see Note #1)
  92. ;   val    Variable or literal whose value is being read
  93. ;   var    Variable that is being set
  94. ;   [xxx]  Square brackets indicate optional items
  95. ;
  96. ;   Note #1:  Tabs, spaces and commas are stripped from numeric values
  97. ;
  98. ;   COMMAND   DEFAULT SETTINGS
  99. ;   --------  -----------------------------------------------------------------
  100. ;   CVTCASE   "UI" (Uppercase, IBM extended character set)
  101. ;   DATE      Default date format is as set in POMDATE.CFG
  102. ;   FINDPOSN  "IS" (Include, Start)
  103. ;   LOOKCOLS  Keyfield Start = 1, End = 10; Datafield Start = 12, End = 255
  104. ;   LOOKFILE  No default, but you can set the file name via the /L parameter
  105. ;   LOOKSPEC  "Y" "N" "N" (Trim = Yes; Sorted = No; Case-sensitive = No)
  106. ;   MAPFILE   "MATCHCASE"
  107. ;   MINLEN    Normal reading (value1) = "1"; READNEXT (value2) = "0"
  108. ;   OFILE     Default deduction is "WEAK" (override filename if not specified)
  109. ;   PAGELEN   "0" "N" if command omitted; ctl defaults to "Y" (use form feeds)
  110. ;   PARSE     "X"  (Exclude delimiters)
  111. ;   PEEL      "X"  (Exclude delimiters)
  112. ;   PROPER    "IW" (Intelligent word detection, capitalize each word)
  113. ;   ROUNDING  "Y"  (Perform rounding if precision is specified in CALCREAL)
  114. ;   SCANPOSN  "I" (Ignore case when comparing; find any occurence)
  115. ;   TODAY     Default date format is as set in POMDATE.CFG
  116. ;
  117. ;   ---------------------------------------------------------------------------
  118. ;
  119. ;   PADDING FOR CLARITY
  120. ;
  121. ;   Before:   IF PRICE "0.00" BONUS "1.00" "0.00
  122. ;   After:    IF PRICE = "0.00" THEN BONUS = "1.00" ELSE "0.00
  123. ;
  124. ;******************************************************************************
  125.